home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / SLINKY.BUG < prev    next >
Encoding:
Text File  |  1984-03-10  |  768 b   |  61 lines
  1. make "description [Circles; from "Logo for the Apple II", pgs. 53-55]
  2. to "rcp  :r
  3. right 5
  4. forward :r * 3.14159 / 18
  5. right 5
  6. end
  7.  
  8. to "lcp  :r
  9. left 5
  10. forward :r * 3.14159 / 18
  11. left 5
  12. end
  13.  
  14. to "rarc  :r
  15. repeat 9 [rcp :r]
  16. end
  17.  
  18. to "larc  :r
  19. repeat 9 [lcp :r]
  20. end
  21.  
  22. to "rcircle  :r
  23. repeat 36 [rcp :r]
  24. end
  25.  
  26. to "lcircle  :r
  27. repeat 36 [lcp :r]
  28. end
  29.  
  30. to "shrinkcircle  :size
  31. if :size < 4 then stop
  32. rcircle :size
  33. shrinkcircle :size - 4
  34. end
  35.  
  36. to "rslinky  :size
  37. rcircle :size
  38. pu
  39. rt 90
  40. fd 10
  41. lt 90
  42. pd
  43. rslinky :size
  44. end
  45.  
  46. to "spinslink  :size
  47. rcircle :size
  48. right 20
  49. print heading
  50. if heading = 0 then stop
  51. spinslink :size
  52. end
  53.  
  54. to "growcircle  :size
  55. repeat 12 [rcp :size]
  56. growcircle :size + 5
  57. end
  58.  
  59. 
  60. if heading = 0 then stop
  61. spin